Answer "Initialize Beta or VHS format?" with "VHS" or "Beta"
if it is "VHS" then
go third card
else
go fourth card
end if
end mouseUp
-- part 3 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=402 top=39 right=59 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Go to Tape
----- HyperTalk script -----
on mouseUp
global tape
put empty into tape
goTape
end mouseUp
-- part 4 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=402 top=58 right=79 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find Time
----- HyperTalk script -----
on mouseUp
FindTime
end mouseUp
-- part 5 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=411 top=132 right=151 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Index
----- HyperTalk script -----
on mouseUp
go second card
end mouseUp
-- part 6 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=411 top=150 right=169 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Card
----- HyperTalk script -----
on mouseUp
NuCard
end mouseUp
-- part 7 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=438 top=176 right=206 bottom=473
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
go to stack "Home"
end mouseUp
-- part 9 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=19 top=35 right=57 bottom=119
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: VCR Data
----- HyperTalk script -----
on mouseUp
set visible of cd fld data to not visible of cd fld data
end mouseUp
-- part 10 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=66 top=92 right=265 bottom=406
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 15026
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Data
-- part 11 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=16 top=164 right=208 bottom=64
-- title width / last selected line: 0
-- icon id / first selected line: 14767 / 14767
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
show cd fld "About"
end mouseUp
-- part 12 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=13 top=27 right=334 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 15026
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: About
----- HyperTalk script -----
on mouseUp
hide me
end mouseUp
-- part contents for card part 12
----- text -----
Several features are available in this stack. One may enter new cards, of course, and sort tapes according to number. Both Beta or VHS tapes can be included in the catalog. The Index Card can generate an index of themes from the Theme field for quick browsing.
The Time Remaining feature must be initialized for each VCR. Click on the "Initialize" button for more details. Enter the last number used to generate the time left. This initialization need be done only once per VCR.
"Find Time" can find time at end of tapes. It can find any gap of n minutes or fill as close as possible to the end of the tape.
There is a small field inside the time remaining field. This is for tapes which have had sections stripped without destroying the whole tape. Simply put the number that the tape was stripped to in here and the time will be adjusted accordingly.
Any comments and/or the shareware fee of $5 should be sent to:
Mike Kazmierczak
X Systems
1789 Brandy Dr. SE
Conyers GA 30208-3032
GEnie: M.KAZMIERCZ1
UUCP: gatech!nanovx!kaz
BITNET: tegammk@gitnve2
INTERNET: kaz@nanovx.UUCP@gatech.edu
-- part contents for card part 10
----- text -----
Place important VCR data here. Serial numbers, repair tips, etc.